VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsWinPosition"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Option Explicit

' Name:     Windows Information Viewer
' Author:   Chong Long Choo
' Date:     06 September 1999

Private mvarIs_Iconic As Boolean
Private mvarIs_Zoomed As Boolean
Private mvarIs_Enabled As Boolean
Private mvarIs_Visible As Boolean
Private mvarLeft As Long
Private mvarRight As Long
Private mvarTop As Long
Private mvarBottom As Long

Public Property Let Bottom(ByVal vData As Long)
    mvarBottom = vData
End Property

Public Property Get Bottom() As Long
    Bottom = mvarBottom
End Property

Public Property Let Top(ByVal vData As Long)
    mvarTop = vData
End Property

Public Property Get Top() As Long
    Top = mvarTop
End Property

Public Property Let Right(ByVal vData As Long)
    mvarRight = vData
End Property

Public Property Get Right() As Long
    Right = mvarRight
End Property

Public Property Let Left(ByVal vData As Long)
    mvarLeft = vData
End Property

Public Property Get Left() As Long
    Left = mvarLeft
End Property

Public Property Let Is_Visible(ByVal vData As Boolean)
    mvarIs_Visible = vData
End Property

Public Property Get Is_Visible() As Boolean
    Is_Visible = mvarIs_Visible
End Property

Public Property Let Is_Enabled(ByVal vData As Boolean)
    mvarIs_Enabled = vData
End Property

Public Property Get Is_Enabled() As Boolean
    Is_Enabled = mvarIs_Enabled
End Property

Public Property Let Is_Zoomed(ByVal vData As Boolean)
    mvarIs_Zoomed = vData
End Property

Public Property Get Is_Zoomed() As Boolean
    Is_Zoomed = mvarIs_Zoomed
End Property

Public Property Let Is_Iconic(ByVal vData As Boolean)
    mvarIs_Iconic = vData
End Property

Public Property Get Is_Iconic() As Boolean
    Is_Iconic = mvarIs_Iconic
End Property
